﻿Imports System.Runtime.InteropServices
Public Class Bienvennida

    Dim contador As Integer

    Private Sub barracargando_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ProgressBar1.Value = 0.0
        ProgressBar1.Maximum = 100
        Timer1.Interval = 40
        Timer1.Enabled = True

    End Sub



    Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
        If contador < 100 Then
            ProgressBar1.Value = contador
            contador = contador + 1
        Else
            Timer1.Enabled = False
            Me.Hide()
            frmTikect.Show()


        End If
    End Sub
End Class